r3 <- lm(egalit ~ egalit_p + politic, survey)
summary(r3)
## 
## Call:
## lm(formula = egalit ~ egalit_p + politic, data = survey)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -1.76095 -0.30453  0.01196  0.34933  1.92890 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  1.17279    0.14400   8.144 5.61e-15 ***
## egalit_p     0.19088    0.04513   4.229 2.94e-05 ***
## politic      0.49584    0.02912  17.030  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.5357 on 378 degrees of freedom
## Multiple R-squared:  0.5503, Adjusted R-squared:  0.548 
## F-statistic: 231.3 on 2 and 378 DF,  p-value: < 2.2e-16